﻿Public Class Workshop


    Dim workshopID, workshopTitle, description As String
    Dim studentsRegistered, maxWorkshopSize As Integer
    Dim workshopDate As Date
    Dim location As Address
    Dim employeesEnrolled() As Employee
    Dim instructor As Instructor
    Dim openForRegistration As Boolean = True

    Private Sub checkStatus()
        If studentsRegistered < maxWorkshopSize Then
            openForRegistration = True
        Else
            openForRegistration = False
        End If
    End Sub

End Class
